create light4v 4 cells allot

: glf-light4f ( light pname r r r r -- )
    light4v 3 cells +
    dup sf!
    cell - dup sf!
    cell - dup sf!
    cell - dup sf!
    gl-light-fv
;

: glf-list{
    1 gl-gen-lists dup
    GL_COMPILE gl-new-list
;

: }glf-list
    gl-end-list
;
